﻿Public Class NguyenLieuBUS
    Public Function GetNguyenLieu() As DataTable
        Dim nl As New NguyenLieuDAO
        Return nl.GetNguyenLieu()
    End Function

    Public Sub AddNguyenLieu(ByVal newNL As NguyenLieuDTO)
        Dim nl As New NguyenLieuDAO
        nl.AddNguyenLieu(newNL)
    End Sub

    Public Sub DelNguyenLieu(ByVal delNL As NguyenLieuDTO)
        Dim nl As New NguyenLieuDAO
        nl.DelNguyenLieu(delNL)
    End Sub
    Public Sub UpdateNguyenLieu(ByVal newNL As NguyenLieuDTO)
        Dim nl As New NguyenLieuDAO
        nl.UpdateNguyenLieu(newNL)
    End Sub

End Class
